home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / frontend / vc.c
C/C++ Source or Header  |  1998-06-24  |  14KB  |  426 lines
  1. /*  Frontend for vbcc                       */
  2. /*  (c) in 1995-96 by Volker Barthelmann    */
  3. /*  #define AMIGA for Amiga-Version         */
  4.  
  5. #include <stdlib.h>
  6. #include <string.h>
  7. #include <stdio.h>
  8.  
  9. #ifdef AMIGA
  10. #include <dos/dos.h>
  11. #include <dos/dosasl.h>
  12. #include <exec/libraries.h>
  13. #include <clib/dos_protos.h>
  14.  
  15. extern struct Library *DOSBase;
  16.  
  17. /*  Must be 32bit-aligned - I know it will be if compiled with vbcc.    */
  18. struct FileInfoBlock fib;
  19. #endif
  20.  
  21. struct NameList{
  22.     struct NameList *next;
  23.     char *obj;
  24. } *first_obj=0,*last_obj=0,*first_scratch=0,*last_scratch=0;
  25.  
  26. /*  Limit fuer Laenge der Namen (wegen Wildcards)   */
  27. #define NAMEBUF 1000    /*  MUST BE >= ~TMPNAM_L+7  */
  28. #define USERLIBS 1000
  29.  
  30. /*  Ab dieser Laenge werden Objektfiles nicht direkt uebergeben,    */
  31. /*  sondern aus einem File an den Linker uebergeben                 */
  32. #ifdef AMIGA
  33. int MAXCLEN=500;
  34. #else
  35. int MAXCLEN=32000;
  36. #endif
  37.  
  38. #define NOTMPFILE 2048
  39. #define OUTPUTSET 1024
  40. #define NOSTDLIB 512
  41. #define VERBOSE 256
  42. #define VERYVERBOSE 128
  43. #define KEEPSCRATCH 64
  44.  
  45. #define PPSRC 1
  46. #define CCSRC 2
  47. #define ASSRC 3
  48. #define OBJ 4
  49.  
  50. char empty[]="";
  51. /*  Namen der einzelnen Phasen  */
  52. char *ppname=empty,*ccname=empty,*asname=empty,*ldname=empty,*l2name=empty,*rmname=empty;
  53. /*  dasselbe fuer VERBOSE   */
  54. char *ppv=empty,*ccv=empty,*asv=empty,*ldv=empty,*l2v=empty,*rmv=empty;
  55.  
  56. #if defined(AMIGA)
  57. const char *config_name="vc.config";
  58. const char *search_dirs[]={"","ENV:","VBCC:"};
  59. char *ul="vlib:%s.lib";
  60. #elif defined(WINTEL)
  61. const char *config_name="vc.cfg";
  62. const char *search_dirs[]={"","%VCCFG%\\"};
  63. char *ul="-l%s";
  64. #else
  65. const char *config_name="vc.config";
  66. const char *search_dirs[]={"","~/","/etc/"};
  67. char *ul="-l%s";
  68. #endif
  69.  
  70. /*  String fuer die Default libraries   */
  71. char userlibs[USERLIBS];
  72. char *nomem="Not enough memory!\n";
  73.  
  74. char *destname="a.out";
  75. char namebuf[NAMEBUF+1],namebuf2[NAMEBUF+1];
  76. char oldfile[NAMEBUF+2];
  77.  
  78. char *config;
  79. char **confp;
  80.  
  81. int typ(char *);
  82. char *add_suffix(char *,char *);
  83. void raus(int);
  84.  
  85. char *command,*options,*linkcmd,*objects,*libs,*ppopts;
  86. #ifdef AMIGA
  87. struct AnchorPath *ap;
  88. #endif
  89.  
  90. int linklen=10,flags=0;
  91.  
  92. void free_namelist(struct NameList *p)
  93. {
  94.     struct NameList *m;
  95.     while(p){
  96.         m=p->next;
  97.         if(flags&VERYVERBOSE){
  98.             puts("free p->obj");
  99.             if(!p->obj) puts("IS ZERO!!"); else puts(p->obj);
  100.         }
  101.         free((void *)p->obj);
  102.         if(flags&VERYVERBOSE){puts("free p"); if(!p) puts("IS ZERO!!");}
  103.         free((void *)p);
  104.         p=m;
  105.     }
  106. }
  107. void del_scratch(struct NameList *p)
  108. {
  109.     while(p){
  110.         sprintf(command,rmname,p->obj);
  111.         if(flags&VERBOSE) printf("%s\n",command);
  112.         if(system(command)){printf("%s failed\n",command);raus(20);}
  113.         p=p->next;
  114.     }
  115. }
  116. void raus(int rc)
  117. {
  118.     if(confp)   free(confp);
  119.     if(config)  free(config);
  120.     if(objects) free(objects);
  121.     if(libs)    free(libs);
  122.     if(command) free(command);
  123.     if(ppopts)  free(ppopts);
  124.     if(options) free(options);
  125.     if(linkcmd) free(linkcmd);
  126. #ifdef AMIGA
  127.     if(ap) free(ap);
  128. #endif
  129.     free_namelist(first_obj);
  130.     free_namelist(first_scratch);
  131.     exit(rc);
  132. }
  133. void add_name(char *obj,struct NameList **first,struct NameList **last)
  134. {
  135.     struct NameList *new;
  136.     if(flags&VERYVERBOSE) printf("add_name: %s\n",obj);
  137.     if(!(new=(struct NameList *)malloc(sizeof(struct NameList))))
  138.         {printf(nomem);raus(20);}
  139.     if(!(new->obj=(char *)malloc(strlen(obj)+1)))
  140.         {free((void *)new);printf(nomem);raus(20);}
  141.     if(first==&first_obj) linklen+=strlen(obj)+1;
  142.     strcpy(new->obj,obj);
  143.     new->next=0;
  144.     if(!*first){
  145.         *first=*last=new;
  146.     }else{
  147.         (*last)->next=new;*last=new;
  148.     }
  149. }
  150. int read_config(const char *cfg_name)
  151. {
  152.     int i,count; long size;
  153.     char *p,*name;
  154.     FILE *file=0;
  155.     for(i=0;i<sizeof(search_dirs)/sizeof(search_dirs[0]);i++){
  156.       name=malloc(strlen(search_dirs[i])+strlen(cfg_name)+1);
  157.       if(!name) {printf(nomem);raus(EXIT_FAILURE);}
  158.       strcpy(name,search_dirs[i]);
  159.       strcat(name,cfg_name);
  160.       file=fopen(name,"rb");
  161.       free(name);
  162.       if(file) break;
  163.     }
  164.     if(!file) {puts("No config file!");raus(EXIT_FAILURE);}
  165.     if(fseek(file,0,SEEK_END)) return(0);
  166.     size=ftell(file);
  167.     if(fseek(file,0,SEEK_SET)) return(0);
  168.     config=malloc(size);
  169.     if(!config){printf(nomem);raus(EXIT_FAILURE);}
  170.     fread(config,1,size,file);
  171.     fclose(file);
  172.     count=0;p=config;
  173.     while(p<config+size&&*p){
  174.         count++;
  175.         while(p<config+size&&*p!='\n') p++;
  176.         if(*p=='\n') *p++=0;
  177.     }
  178.     confp=malloc(count*sizeof(char *));
  179.     for(p=config,i=0;i<count;i++){
  180.         confp[i]=p;
  181.         while(*p) p++;
  182.         p++;
  183.     }
  184.     return(count);
  185. }
  186.  
  187. int main(int argc,char *argv[])
  188. {
  189.     int tfl,i,len=10,pm,count;char *parm;long opt=1;
  190.     for(i=1;i<argc;i++){
  191.         if(argv[i][0]=='+'){
  192.             config_name=argv[i]+1;
  193.             argv[i][0]=0;
  194.             break;
  195.         }
  196.     }
  197.     count=read_config(config_name);
  198. #ifdef AMIGA
  199.     if(pm=DOSBase->lib_Version>=36){
  200.         if(ap=(struct AnchorPath *)calloc(sizeof(struct AnchorPath)+NAMEBUF,1))
  201.             {ap->ap_Strlen=NAMEBUF;ap->ap_BreakBits=0;} else pm=0;
  202.     }
  203. #endif
  204.     for(i=1;i<argc+count;i++){
  205.         if(i<argc) parm=argv[i]; else parm=confp[i-argc];
  206.         if(!strncmp(parm,"-ul=",4)){ul=parm+4;*parm=0;}
  207.     }
  208.     for(i=1;i<argc+count;i++){
  209.         if(i<argc) parm=argv[i]; else parm=confp[i-argc];
  210. /*        printf("Parameter %d=%s\n",i,parm);*/
  211.         if(!strncmp(parm,"-ml=",4)){MAXCLEN=atoi(parm+4);*parm=0;}
  212.         if(!strncmp(parm,"-pp=",4)){ppname=parm+4;*parm=0;}
  213.         if(!strncmp(parm,"-cc=",4)){ccname=parm+4;*parm=0;}
  214.         if(!strncmp(parm,"-as=",4)){asname=parm+4;*parm=0;}
  215.         if(!strncmp(parm,"-ld=",4)){ldname=parm+4;*parm=0;}
  216.         if(!strncmp(parm,"-l2=",4)){l2name=parm+4;*parm=0;}
  217.         if(!strncmp(parm,"-rm=",4)){rmname=parm+4;*parm=0;}
  218.         if(!strncmp(parm,"-ppv=",5)){ppv=parm+5;*parm=0;}
  219.         if(!strncmp(parm,"-ccv=",5)){ccv=parm+5;*parm=0;}
  220.         if(!strncmp(parm,"-asv=",5)){asv=parm+5;*parm=0;}
  221.         if(!strncmp(parm,"-ldv=",5)){ldv=parm+5;*parm=0;}
  222.         if(!strncmp(parm,"-l2v=",5)){l2v=parm+5;*parm=0;}
  223.         if(!strncmp(parm,"-rmv=",5)){rmv=parm+5;*parm=0;}
  224.         if(!strcmp(parm,"-notmpfile")) {flags|=NOTMPFILE;*parm=0;}
  225.         if(!strcmp(parm,"-E")) {flags|=CCSRC;*parm=0;}
  226.         if(!strcmp(parm,"-S")) {flags|=ASSRC;*parm=0;}
  227.         if(!strcmp(parm,"-c")) {flags|=OBJ;*parm=0;}
  228.         if(!strcmp(parm,"-v")) {flags|=VERBOSE;*parm=0;}
  229.         if(!strcmp(parm,"-k")) {flags|=KEEPSCRATCH;*parm=0;}
  230.         if(!strcmp(parm,"-vv")) {flags|=VERBOSE|VERYVERBOSE;*parm=0;}
  231.         if(!strcmp(parm,"-nostdlib")) {flags|=NOSTDLIB;*parm=0;}
  232.         if(!strncmp(parm,"-O",2)){
  233.             if(parm[2]=='0') opt=0;
  234.             if(parm[2]=='1'||parm[2]==0) opt=991;
  235.             if(parm[2]=='2') opt=1023;
  236.             if(parm[2]>='3') opt=~0;
  237.             if(parm[2]=='=') opt=atoi(&parm[3]);
  238.             *parm=0;
  239.         }
  240.         if(!strcmp(parm,"-o")&&i<argc-1) {
  241.             *argv[i++]=0;destname=argv[i];
  242.             flags|=OUTPUTSET;argv[i]="";continue;
  243.         }
  244.         if(!strncmp(parm,"-o=",3)){
  245.             destname=parm+3;
  246.             flags|=OUTPUTSET;*parm=0;continue;
  247.         }
  248.         if(parm[0]=='-'&&parm[1]=='l'){
  249.             size_t l=strlen(userlibs);
  250.             if((l+strlen(parm)-2+strlen(ul)+1)>=USERLIBS){puts("Userlibs too long");exit(20);}
  251.             userlibs[l]=' ';
  252.             sprintf(userlibs+l+1,ul,parm+2);
  253.             *parm=0;continue;
  254.         }
  255.         len+=strlen(parm)+10;
  256.     }
  257.     if(flags&VERBOSE) printf("vc frontend for vbcc (c) in 1995-97 by Volker Barthelmann\n");
  258.     if(!(flags&7)) flags|=5;
  259.     tfl=flags&7;
  260.     if(flags&VERYVERBOSE){ppname=ppv;ccname=ccv;asname=asv;ldname=ldv;rmname=rmv;l2name=l2v;}
  261.     if(flags&NOSTDLIB){ldname=l2name;}
  262.     /*  Nummer sicher...    */
  263.     len+=strlen(ppname)+strlen(ccname)+strlen(asname)+strlen(rmname)+strlen(userlibs)+NAMEBUF;
  264.     if(!(command=malloc(len))){printf(nomem);raus(20);}
  265.     if(!(options=malloc(len))){printf(nomem);raus(20);}
  266.     if(!(ppopts=malloc(len))){printf(nomem);raus(20);}
  267.     *options=0;*ppopts=0;
  268.     for(i=1;i<argc+count;i++){
  269.         if(i<argc) parm=argv[i]; else parm=confp[i-argc];
  270.         if(*parm=='-'){
  271.             if(parm[1]!='D'&&parm[1]!='I'&&parm[1]!='+'){
  272.                 strcat(options,parm);strcat(options," ");
  273.             }else{
  274.                 strcat(ppopts,parm);strcat(ppopts," ");
  275.             }
  276.         }
  277.     }
  278.     if(flags&VERYVERBOSE) printf("flags=%d opt=%ld len=%d\n",flags,opt,len);
  279.     namebuf[0]='\"'; namebuf2[0]='\"';
  280.     for(i=1;i<argc;i++){
  281.         int t,j;char *file;
  282. #ifdef AMIGA
  283.         BPTR lock;
  284. #endif
  285.         if(i<argc) parm=argv[i]; else parm=confp[i-argc];
  286.         if(*parm=='-'||!*parm) continue;
  287.         if(flags&VERYVERBOSE) printf("Argument %d:%s\n",i,parm);
  288. #ifdef AMIGA
  289.         if(pm) if(MatchFirst((STRPTR)parm,ap)) {printf("No match for %s\n",parm);continue;}
  290. #endif
  291.         do{
  292. #ifdef AMIGA
  293.             if(pm) file=(char *)&ap->ap_Buf[0]; else file=parm;
  294.             t=typ(file);
  295.             if(pm&&(lock=Lock((STRPTR)file,-2))){
  296.                 NameFromLock(lock,(STRPTR)namebuf+1,NAMEBUF-2);
  297.                 strcat(namebuf,"\"");
  298.                 file=namebuf;
  299.                 UnLock(lock);
  300.             }else{
  301.                 strcpy(namebuf+1,file);
  302.                 strcat(namebuf,"\"");
  303.                 file=namebuf;
  304.             }
  305. #else
  306.             file=parm;
  307.             t=typ(file);
  308.             strcpy(namebuf+1,file);
  309.             strcat(namebuf,"\"");
  310.             file=namebuf;
  311. #endif
  312.             if(flags&VERYVERBOSE) printf("File %s=%d\n",file,t);
  313.             for(j=t;j<tfl;j++){
  314.                 if(j==OBJ){ if(j==t) add_name(file,&first_obj,&last_obj);
  315.                             continue;}
  316.                 strcpy(oldfile,file);
  317.                 if(j==t&&j!=tfl-1&&!(flags&(NOTMPFILE|KEEPSCRATCH))){
  318.                     file=namebuf2;
  319.                     tmpnam(file+1);
  320.                 }
  321.                 if(j==tfl-1) file=namebuf;
  322.                 if(j==PPSRC){
  323.                     file=add_suffix(file,".i");
  324.                     if(tfl==CCSRC&&(flags&OUTPUTSET)) file=destname;
  325.                     sprintf(command,ppname,ppopts,oldfile,file);
  326.                     if((tfl)!=CCSRC) add_name(file,&first_scratch,&last_scratch);
  327.                 }
  328.                 if(j==CCSRC){
  329.                     file=add_suffix(file,".asm");
  330.                     if(tfl==ASSRC&&(flags&OUTPUTSET)) file=destname;
  331.                     sprintf(command,ccname,oldfile,file,options,opt);
  332.                     if((tfl)!=ASSRC) add_name(file,&first_scratch,&last_scratch);
  333.                 }
  334.                 if(j==ASSRC){
  335.                     file=add_suffix(file,".o");
  336.                     if(tfl==OBJ&&(flags&OUTPUTSET)) file=destname;
  337.                     sprintf(command,asname,oldfile,file);
  338.                     add_name(file,&first_obj,&last_obj);
  339.                     if((tfl)!=OBJ) add_name(file,&first_scratch,&last_scratch);
  340.                 }
  341.                 if(flags&VERBOSE) printf("%s\n",command);
  342.                 if(system(command)){printf("%s failed\n",command);raus(20);}
  343.             }
  344. #ifdef AMIGA
  345.         }while(pm&&!MatchNext(ap));
  346.         if(pm) MatchEnd(ap);
  347. #else
  348.         }while(0);
  349. #endif
  350.     }
  351.     if((tfl)>OBJ){
  352.     /*  Zu Executable linken    */
  353.         struct NameList *p;
  354.         FILE *objfile=0;
  355.         objects=malloc(linklen);
  356.         if(!objects){printf(nomem);raus(EXIT_FAILURE);}
  357.         linklen+=strlen(ldname)+strlen(destname)+strlen(userlibs)+10;
  358.         if(flags&VERYVERBOSE) printf("linklen=%d\n",linklen);
  359.         if(!(linkcmd=(char *)malloc(linklen))){printf(nomem);raus(20);}
  360.         p=first_obj;
  361.         if(linklen>=MAXCLEN){
  362.             strcpy(objects+1,tmpnam(0));
  363.             *objects='@';
  364.             if(!(objfile=fopen(objects+1,"w"))){
  365.                 printf("Could not open <%s>!\n",objects+1);
  366.                 raus(20);
  367.             }
  368.         }else *objects=0;
  369.         while(p){
  370.             if(p->obj){
  371.                 if(linklen>=MAXCLEN){
  372.                     fputs(p->obj,objfile);
  373.                     fputs("\n",objfile);
  374.                 }else{
  375.                     strcat(objects,p->obj);strcat(objects," ");
  376.                 }
  377.             }
  378.             p=p->next;
  379.         }
  380.         if(objfile) fclose(objfile);
  381.         if(*objects){
  382.             sprintf(linkcmd,ldname,objects,userlibs,destname);
  383.             if(flags&VERBOSE) printf("%s\n",linkcmd);
  384.             /*  hier wird objfile bei Fehler nicht geloescht    */
  385.             if(system(linkcmd)){printf("%s failed\n",linkcmd);raus(20);}
  386. #ifdef AMIGA
  387.             if(flags&VERBOSE){
  388.                 BPTR l;
  389.                 if(l=Lock((STRPTR)destname,-2)){
  390.                     if(Examine(l,&fib)) printf("Size of executable: %lu bytes\n",(unsigned long)fib.fib_Size);
  391.                     UnLock(l);
  392.                 }
  393.             }
  394. #endif
  395.         }else puts("No objects to link");
  396.         if(objfile) remove(objects+1);
  397.     }
  398.     if(!(flags&KEEPSCRATCH)) del_scratch(first_scratch);
  399.     raus(0);
  400. }
  401.  
  402. int typ(char *p)
  403. {
  404.     p=strrchr(p,'.');
  405.     if(!p) return(5);
  406.     if(!strcmp(p,".c")) return(PPSRC);
  407.     if(!strcmp(p,".i")) return(CCSRC);
  408.     if(!strcmp(p,".s")) return(ASSRC);
  409.     if(!strcmp(p,".asm")) return(ASSRC);
  410.     if(!strcmp(p,".o")) return(OBJ);
  411.     if(!strcmp(p,".obj")) return(OBJ);
  412.     return(5);
  413. }
  414.  
  415. char *add_suffix(char *s,char *suffix)
  416. {
  417.     static char str[NAMEBUF+3],*p;
  418.     if(strlen(s)+strlen(suffix)>NAMEBUF){printf("string too long\n");raus(20);}
  419.     if(s!=str) strcpy(str,s);
  420.     p=strrchr(str,'.');
  421.     if(!p) p=str+strlen(s);
  422.     strcpy(p,suffix);
  423.     strcat(p,"\"");
  424.     return(str);
  425. }
  426.